unit oEditorManager;

{
	created   13.3.2010
	author   	Alica Skodova

	edit list:
}

interface

uses Classes, oLevel, oCoordinates, oPedestrian, oLogicalEntity,oPhysicalEntity,
     oManager, oEntity, oScene, Generics.Collections, oProcessObjectConstants, oProcessItem,
     SysUtils, oProcessObjects;

type
    EEditorManager = class(Exception)

    end;

    TEditorManager = class (TManager)

    private
    public
       procedure test;
       function ProcessObject(paItem: TProcessItem): TProcessItem; override;
       property Master : TManager read aMaster;
    end;

implementation

function TEditorManager.ProcessObject(paItem: TProcessItem): TProcessItem;
var
  value : TInteger;
begin
  if paItem.Data <> nil then
     if paItem.Data is TInteger then
        value := TInteger(paItem.Data)
          else
             raise EEditorManager.Create('WorldManger: Expected TProcessingList or TString'
             +' or TProcessingXML instance, got ' +
              paItem.ClassName);

    case paItem.Code of
      PO_EDITOR_FL_SET_ID : begin
//          value.Integer_;
      end;

    end;

end;
procedure TEditorManager.test;
var
  list : TProcessingList;
begin
  list := TProcessingList.Create;
 //  list.addParameter(TInteger.Create(Et_door_type));
 // list.addParameter(TInteger.Create(id));

  aMaster.ProcessObject(TProcessItem.create(PO_SCENE_INSERT_LOGICAL_ENTITY_TO_PHYS_ENTITY, list));
end;

end.
